100 REM * BASIC-CORNER  C 64
110 REM * HIGHSCORE-LISTE
120 REM * NIKOLAUS HEUSLER (8.93)
130 REM * ZWENGAUERWEG 18
140 REM * 81479 MUENCHEN
150 :
160 REM -- VERSION 1: EWIGE BESTENLISTE --
200 :
210 DIMNA$(15),PU(15):PRINTCHR$(147):REM BILDSCHIRM LOESCHEN
220 FORI=1TO15:NA$(I)="(LEER)":PU(I)=32-I*2:NEXT
230 PRINT:PRINT"LISTE VON DISKETTE LADEN? [J/N]
240 [161]A$:[139]A$[178]"N"[167]310
250 [139]A$[179][177]"J"[167]240
260 [153]:[153]"LISTE WIRD GELADEN
270 OPEN1,8,2,"BESTENLISTE,S,R
280 [129]I[178]1[164]15:[132]1,NA$(I),PU(I):[130]
290 [160]1
300 :
310 [153]:[153]"HIER IST DIE BESTENLISTE:
320 PRINT:FORI=1TO15
330 A$=RIGHT$(STR$(I),2):PRINT"PLATZ "A$": "NA$(I);
340 PRINTLEFT$(" .....................",23-LEN(NA$(I)));
350 PRINTRIGHT$("      "+STR$(PU(I)),6)
360 NEXT
400 :
410 PRINT
420 PRINT"BITTE 'STOP' EINGEBEN, UM ZU BEENDEN
430 [133]"IHR VORNAME";NA$
440 [139]NA$[178]"STOP"[167]810
450 [133]"ERGEBNIS (PUNKTE)";PU
600 :
610 [129]I[178]1[164]15
620 [139]PU[177]PU(I)[167]710
630 [130]
640 [153]:[153]"ES HAT LEIDER NICHT FUER EINEN PLATZ
650 PRINT"IN DER BESTENLISTE GEREICHT!
660 [137]310
700 :
710 K[178]15
720 [139]K[178]I[167]740
730 PU(K)[178]PU(K[171]1):NA$(K)[178]NA$(K[171]1):K[178]K[171]1:[137]720
740 PU(K)[178]PU:NA$(K)[178]NA$
750 [153]:[153]"SIE STEHEN JETZT AUF PLATZ"I"DER":[153]"BESTENLISTE!
760 GOTO310
800 :
810 PRINT:PRINT"DER VORGANG WURDE AUF IHREN WUNSCH":PRINT"ABGEBROCHEN.
820 [153]:[153]"BESTENLISTE AUF DISKETTE SPEICHERN? J/N
830 GETA$:IFA$="N"THENEND
840 IFA$<>"J"THEN830
850 PRINT:PRINT"LISTE WIRD GESPEICHERT
860 [159]15,8,15,"S:BESTENLISTE":[160]15
870 [159]3,8,2,"BESTENLISTE,S,W
880 FORI=1TO15:PRINT#3,NA$(I):PRINT#3,PU(I):NEXT
890 CLOSE3:END